unit Thrad_WaitDemo;

interface

uses
  Classes,Windows,Class_KzThrad;

type
  TThradWaitDemo = class(TKzThrad)
  private
  protected
    procedure Execute; override;
  end;

implementation


procedure TThradWaitDemo.Execute;
begin
  Sleep(300);
  GetMsgProgress(Class_KzThrad.CONST_THRAD_STAT_TRUE,['OK']);
end;

end.
